rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#report
max(rawdata)
min(rawdata)
summary(rawdata)

#plot
plot(rawdata, type='b')
plot(rawdata, type='b')
plot(rawdata, type='b',col="blue")
plot(rawdata, type='b',col="red")
plot(rawdata, type='b',col="red",xlab='time in seconds')
plot(rawdata, type='b',col="red",xlab='time in seconds',ylab='CPU Usage')
plot(rawdata, type='b',col="red",xlab='time in seconds',ylab='CPU Usage')

#line
abline(h=max(rawdata), v=0) 
abline(h=min(rawdata), v=0) 
abline(h=mean(rawdata), v=0) 


